home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / graphics / dtype / picturedt-v43 / install next >
Text File  |  1997-04-16  |  21KB  |  398 lines
  1. ;********************************************************************************
  2. ;    __  __ __      ____      ____           __           __                 
  3. ;   / / / // /__   /___ \    / __ \        _/ /_        _/ /_               
  4. ;  / / / // // /_   __/ /   / / / /______ /  __/______ /  __/__  __ ______ ______
  5. ; / / / //__  __/  /_  /   / / / // __  / / /  / __  / / /   \ \/ // __  // ____/
  6. ;/ /_/ /   / /   ___/ /   / /_/ // __  / / /_ / __  / / /_    \  // /_/ // __/_
  7. ;\____/   /_/   /____/   /_____//_/ /_/ /___//_/ /_/ /___/    / // ____//_____/
  8. ;                                                            /_// /    
  9. ; BETA                                                         /_/ 
  10. ; $VER: V43DT_Installer 2.40 (April-16-1997)
  11. ; Installer by Robert C. Reiswig ©1995,1996,1997
  12. ;
  13. ; If you wish to use any part of this installer you must ask. May not be 
  14. ; integrated/placed into any other package! Changes, suggestions or problems:
  15. ; vgr@best.com
  16. ;--------------------------------------------------------------------------------
  17. ;
  18. ;********************************************************************************
  19.  
  20. (set whereback "SYS:Storage")
  21. (set dtdest (tackon whereback "Datatypes"))
  22. (set cksum 0)
  23. (set ncg 0)
  24. (set cybergfx 0)
  25.  
  26.  
  27. ;********************************************************************************
  28. ; Read Needed System information
  29. ;********************************************************************************
  30. (set lan 1)
  31. (if (> (exists ("env:Language")) 0)
  32.   (if (= "deutsch" (getenv "Language")) (set lan 0) )
  33. )
  34.  
  35. ;********************************************************************************
  36. ;English Information  
  37. ;********************************************************************************
  38. (set #about "Welcome to the V43 24Bit Datatypes for use on CyberGraphX systems.\n\nThe picture.datatype V43 is Copyright 1995-97 by Ralph Schmidt. Additional libs/changes by Frank Mariak. All sub datatypes by Matthias Scheler.\n\nThe V43DT uses 'Tower JPEG Codec Class for JPEG support', Copyright (c)1994 Christoph Feck, TowerSystems.\n\nThis will install the V43DT & jpeg_cdc DTs, update & backup (if wanted) the currently installed DTs.")
  39. (set #no_jpeg_cdc "\nThe V43DT uses the 'Tower JPEG Codec Class for JPEG support', Copyright (c)1994 Christoph Feck, TowerSystems.\n\nThe installer could not find the '/jpeg_cdc' directory. The codec and classes along with the needed tower.library can not be installed.\n\nYour archive my be bad or incomplete.\n\nThe V43DT may not work correctly when trying to display JPEG pictures.") 
  40. (set #cybergfx? "\nWhat type of system are you installing the\nV43 24Bit Datatypes on?\n")
  41. (set #whereDTs "In what directory are the V43 Datatypes located? (Not the 'Datatypes' dir itself, 1 level up, ie 'Classes'.) If they aren't installed, select where you wish to install them. (Default: 'SYS:classes'.)")
  42. (set #wherelibs "Where are your CyberGraphX libraries located? If they aren't installed, select where you wish to install them.")
  43. (set #dtdirnotfound "\nThe 'Datatypes' directory was not found. Please select where you have the V43 24bit 'Datatypes' directory located. Do not select the 'Datatypes' directory itself, but one directory level up. If you have the datatypes in 'SYS:classes/datatypes' you would pick 'SYS:classes'.\n\n'datatypes' directory not found in:\n\n") 
  44. (set #whereback "Where would you like to BackUp the Datatypes? If a directory Called 'Datatypes' is not there one will be created. (Default is 'SYS:Storage')")
  45. (set #whattodo "\nWould you like to backup the Datatypes Currently installed on your system that will be updated?\n")
  46. (set #backupdts " BackUp Current Datatypes")
  47. (set #foundcybergfxlib "\nYou had selected that you were installing the V43 Datatype on a OCS/ECS/AGA system.\n\nThe installer has found 'libs:cybergraphics.library'.\n\nOn OCS/ECS/AGA systems you only need to have 'cyberncg.library' installed.\n\nWould you like to remove 'libs:cybergraphics.library'?")
  48. (set #foundcyberncglib "\nYou had selected that you were installing the V43 Datatype on a CyberGraphX system.\n\nThe installer has found 'libs:cyberncg.library'.\n\nOn CyberGraphX systems you only need to have 'cybergraphics.library' installed.\n\nWould you like to remove 'libs:cyberncg.library'?")
  49. (set #backup1 "\nThe Datatypes were Backed-up to:\n")
  50. (set #backup2 "The files that were backed-up into the 'Classes' & 'libs' directories will have <ver.rev> appended to the file name.\n\nThe 'Devs:' files that were backed-up will have the <checksum> of the file appended to the file name.")
  51. (set #foundjpeg "\nThe installer has found that you have a 'JPEG.datatype' installed.  This will create a conflict with the 'JFIF.datatype' that the V43 picture.datatype uses for decoding JPEG pictures.\n\n Is it ok to move the JPEG.datatype to:\n\n")
  52. (set #Skip "Skip")
  53. (set #Delete "Delete")
  54. (set #movejpeg "Move JPEG DT")
  55. (set #whatdts "What sub-datatypes do you with to install/update? If you have installed any '3rd party' datatypes such as the 'ak' datatypes, just deselect that type now.")
  56. (set #tools "\nWhat V43 Datatype Tools do you wish to install?\n")
  57. (set #cyberprefs " PCDT - Prefs for CyberGraphX Datatype")
  58. (set #Where "Where do you wish to install ")
  59. (set #wheredtprefs "PCDT? If there is a copy already there a backup of it will be created!")
  60. (set #draco "\nThe installer has found the 'dracographics.library' on this system.\n\nThe 'cybergraphics.library' will not be installed from this archive.")
  61. (set #cybercg "\nAs of release 43.755 support for cyberncg.library is no more. This means in order to run the V43DT it must be used on a CyberGraphX machine. OCS/ECS/AGA machines are no longer supported.\n\nThe V43DT must be used on a CyberGraphX machine with a licensed CyberGraphX V2 or V3 package installed. Please read the docs for more information.\n\n")
  62. ;If you are running on a DraCo system you _can not_ use the cybergraphics.library from this archive.
  63. (set #nogif "-- From Unisys Webpage --\nReading and/or writing of GIF images requires a license to use Unisys patented Lempel Ziv Welch (LZW) data compression and decompression technology, including US Patent No. 4,558,302 & foreign counterpart patents.\n\nTherefore the gif.datatype has been removed from the PictDT43 archive so that it may be uploaded to Aminet (for the CDROM)\n\nThe V43 GIF DT can be found in the same dir as the V43DT with a file name like: GIF-DT43_16.lha")
  64. (set #done "Update Complete!")
  65.  
  66. ;********************************************************************************
  67. ; German Information
  68. ;********************************************************************************
  69. (if (= LAN 0)
  70. (
  71.  (set #about "Wilkommen zur V43 24Bit Datatypes Installation für CyberGraphX Systeme.\n\nDer picture.datatype V43 ist Copyright 1995-96 by Ralph Schmidt. Ergänzende Änderungen von F.Mariak/M.Scheler. Alle sub datatypes von M.Scheler.\n\nDer V43DT benutzt die 'Tower JPEG Codec Class für JPEG support', Copyright (c)1994 Christoph Feck, TowerSystems.")
  72.  (set #no_jpeg_cdc "\nDer V43DT benutzt die 'Tower JPEG Codec Class für JPEG support', Copyright (c)1994 Christoph Feck, TowerSystems.\n\nDas Verzeichnis '/jpeg_cdc' wurde allerdings nicht gefunden. Der codec und die Klassen zusammen mit der erforderlichen tower.library können nicht installiert werden.\n\nDas Archiv ist nicht komplett.\n\nDer V43DT wird möglicherweise nicht korrekt arbeiten im Zusammenhang mit JPEG Bildern.")
  73.  (set #cybergfx? "\nAuf was für einem Rechner wollen Sie\ndie V43 24Bit Datatypes installieren?\n")
  74.  (set #whereDTs "In welchem Verzeichnis befinden sich die V43 Datatypes ? (Nicht das 'Datatypes' Verzeichnis selbst, sondern die Ebene darüber.) Wenn Sie nicht bereits installiert sind, geben Sie an, wohin Sie sie installieren wollen. (Vorgegeben ist 'SYS:classes'.)")
  75.  (set #wherelibs "Wo befinden sich die CyberGraphX Libraries ? Wenn Sie nicht installiert sind, wählen Sie den Installationspfad.")
  76.  (set #dtdirnotfound "\nDas 'Datatypes' Verzeichnis wurde nicht gefunden. Bitte geben Sie an wo das  V43 24bit 'Datatypes' Verzeichnis liegt. Bitte geben Sie nicht das 'Datatypes' Verzeichnis selbst, sondern eine Verzeichnisebene höher an. Wenn sich die Datatypes in 'SYS:classes/datatypes' befinden, würden Sie 'SYS:classes' angeben.\n\n'datatypes' Verzeichnis nicht gefunden in:\n\n")
  77.  (set #whereback "Wohin sollen die alten Datatypes gesichert werden? Wenn ein Verzeichnis namens 'Datatypes' nicht existiert, wird es erstellt. (Vorgegeben ist 'SYS:Storage')")
  78.  (set #whattodo "\nWollen Sie die Datatypes sichern, die momentan installiert sind und nun durch neue überschrieben werden ?\n")
  79.  (set #backupdts " Momentane Datatypes sichern")
  80.  (set #foundcybergfxlib "\nSie haben die Installation des V43 Datatype für ein OCS/ECS/AGA System gewählt.\n\nEs wurde eine Datei 'libs:cybergraphics.library' gefunden.\n\nAuf OCS/ECS/AGA Rechnern wird nur die 'cyberncg.library' benötigt.\n\nWollen Sie die Datei 'libs:cybergraphics.library' entfernen?")
  81.  (set #foundcyberncglib "\nSie haben die Installation des V43 Datatype für ein CyberGraphX System gewählt.\n\nEs wurde eine Datei 'libs:cyberncg.library' gefunden.\n\nAuf CyberGraphX Rechnern wird nur die 'cybergraphics.library' benötigt.\n\nWollen Sie die Datei 'libs:cyberncg.library' entfernen?")
  82.  (set #backup1 "\nDie Datatypes wurden gesichert nach:\n")
  83.  (set #backup2 "Den Dateien, die in die 'Classes' & 'libs' Verzeichnisse gesichert wurden, wird die Endung <ver.rev> angehängt.\n\nDen gesicherten 'Devs:' Dateien bekommen die Endung <checksum> angehängt.")
  84.  (set #Skip "Überspringen")
  85.  (set #Delete "Löschen")
  86.  (set #movejpeg "Verschiebe JPEG DT")
  87.  (set #whatdts "Welche Datatypes wollen sie erneuern/installieren ? Wenn Sie sogenannte '3rd party' Datatypes wie die 'ak' Datatypes installiert haben, wählen Sie den entsprechenden Datatype nicht.")
  88.  (set #tools "\nWelche V43 Datatype Hilfsprogramme möchten Sie installieren?\n")
  89.  (set #cyberprefs " PCDT - Einsteller für den CyberGraphX Datatype")
  90.  (set #Where "Wohin möchten Sie folgendes installieren: ")
  91.  (set #wheredtprefs "PCDT? Wenn bereits eine Version existiert, wird eine Kopie erstellt!")
  92.  (set #draco "\nEs wurde eine 'dracographics.library' in diesem System gefunden.\n\nDie 'cybergraphics.library' von diesem Archiv wird nicht installiert.")
  93.  (set #cybercg "\n\n\nMit der Version 43.755 wurde die cyberncg.library Unterstützung eingestellt. Das heißt, Sie können den Datatype nur noch auf CyberGraphX Rechnern verwenden. OCS/ECS/AGA Rechner werden nicht mehr unterstützt.")
  94.  (set #nogif "\nDas Lesen und/oder Schreiben von GIF Bildern erfordert eine Lizenz, um die von Unisys patentierte Lempel Ziv Welch (LZW) Datenkompression und Dekompression Technologie zu benutzen, einschließend US Patent No. 4,558,302 & andere Patente. Deswegen wurde der gif.datatype aus dem PictDT43 Archiv entfernt, damit das Archiv auf der Aminet CDROM erscheinen kann.")
  95.  (set #done "Update fertig!")
  96.  
  97. )
  98. )
  99.  
  100. ;********************************************************************************
  101. ; Welcome
  102. ;********************************************************************************
  103. (message #about)
  104. (welcome)
  105.  
  106. ;********************************************************************************
  107. ; No longer In archive: OCS/ECS/AGA support no longer supported - ;GIF removed
  108. ;********************************************************************************
  109. (if (> (exists "libs:cyberncg.library") 0) 
  110.  (message #cybercg) 
  111. )
  112.  
  113. (message #nogif)
  114.  
  115. ;********************************************************************************
  116. ; Ask Where the Current DTs are and check for Datatypes dir.
  117. ;********************************************************************************
  118. (set whereDTs "SYS:Classes")
  119.  
  120. (procedure getdir
  121.   (set whereDTs  (askdir (prompt #whereDTs)
  122.                          (help   #whereDTs)
  123.                          (default whereDTs) 
  124.              )
  125.   )
  126. )
  127.  
  128. (getdir)
  129.  
  130. (while (= (exists (tackon whereDTs "Datatypes")) 0) 
  131.   (
  132.     (message (cat #dtdirnotfound "'" whereDTs "'"))
  133.     (getdir)   
  134.   )
  135. )
  136.  
  137. ;*******************************************************************
  138. ;  ASK where cybergfx libs are
  139. ;*******************************************************************
  140. (set wherelibs   (askdir (prompt #wherelibs)
  141.              (help   #wherelibs)
  142.                   (default "SYS:Libs")
  143.          )
  144. )
  145.  
  146. ;********************************************************************************
  147. ; Ask to Backup the Curreny DTs
  148. ;********************************************************************************
  149. (set ja (askoptions   (choices #backupdts)
  150.                        (prompt #whattodo)
  151.                       (help   #whattodo)
  152.                          (default 1)
  153.     )
  154. )
  155.  
  156. ;********************************************************************************
  157. ; If Backup, ask where and make dirs
  158. ;********************************************************************************
  159. (if (= ja 1)
  160.  (
  161.   (set whereback (askdir (prompt #whereback)
  162.                          (help   #whereback)
  163.                          (default whereback) 
  164.              )
  165.   )
  166.  
  167.   (set dtdest (tackon whereback "Datatypes"))
  168.   (if (< (exists dtdest) 2)  (makedir dtdest (infos)) )
  169.   (if (< (exists (tackon dtdest "classes")) 2)  (makedir (tackon dtdest "classes") (infos)) )
  170.   (if (< (exists (tackon dtdest "classes/codecs")) 2)  (makedir (tackon dtdest "classes/codecs") (infos)) )
  171.   (if (< (exists (tackon dtdest "classes/datatypes")) 2)  (makedir (tackon dtdest "classes/datatypes") (infos)) ) 
  172.   (if (< (exists (tackon dtdest "devs")) 2)  (makedir (tackon dtdest "devs") (infos)) )
  173.   (if (< (exists (tackon dtdest "devs/datatypes")) 2)  (makedir (tackon dtdest "devs/datatypes") (infos)) ) 
  174.   (if (< (exists (tackon dtdest "libs")) 2)  (makedir (tackon dtdest "libs") (infos)) )
  175.  
  176.  )
  177. )
  178.  
  179. (set @default-dest (tackon whereback "Datatypes"))
  180.  
  181. ;********************************************************************************
  182. ; Backup Procedure 
  183. ;******************************************************************************** 
  184. (procedure backup
  185.  (if (> (exists (tackon WHERE @each-name)) 0)
  186.   (
  187.    (set vernum1 (getversion (tackon WHERE @each-name)) )
  188.    (set ver1 (/ vernum1 65536))
  189.    (set rev1 (- vernum1 (* ver1 65536) ) )
  190.    (set verrev (cat ver1 "." rev1))
  191.  
  192.    (if (= cksum 1)
  193.      (
  194.        ;(working "working")
  195.        (set sum (getsum (tackon WHERE @each-name) ) ) 
  196.        (if (< sum 0) (set sum (* sum -1)) )
  197.        (set verrev sum)
  198.      )
  199.    )
  200.  
  201.    (set file-error (copyfiles (source (tackon WHERE @each-name)
  202.                                       (dest TO)
  203.                                       (newname (cat @each-name "." verrev))
  204.                                       (infos)
  205.                                       (optional "nofail")
  206.                               )              
  207.                    )   
  208.    )
  209.  
  210.   )
  211.  )
  212. )
  213.  
  214. ;********************************************************************************
  215. ; Ask for what DTs to install 
  216. ;******************************************************************************** 
  217. (set guessdt 15)
  218. (if (exists "sys:classes/datatypes/akJFIF.datatype") (set guessdt (- guessdt 1)) )
  219. ;(if (= (exists "sys:classes/datatypes/akGIF.datatype") 0) (set guessdt (- guessdt 2)) )
  220.  
  221. (set ToDo  (askoptions (choices " JFIF (JPEG)" " PCX" " PBM" " ILBM")  ;;" GIF"
  222.                (prompt #whatdts)
  223.                (help #whatdts)
  224.                        (default guessdt)
  225.            )
  226. )
  227.  
  228. ;********************************************************************************
  229. ; Check for devs:datatypes/jpeg 
  230. ;******************************************************************************** 
  231. (if (AND (exists "devs:datatypes/jpeg") (IN ToDo 0))
  232.  (
  233.    (set jpeg (askbool (prompt (cat #foundjpeg (tackon whereback "Datatypes")) )
  234.                (help   (cat #foundjpeg (tackon whereback "Datatypes")) )
  235.                       (choices #movejpeg #Skip)
  236.          )
  237.    )
  238.  
  239.    (if (= jpeg 1) 
  240.     (
  241.       (set dtdest (tackon whereback "Datatypes"))
  242.       (if (< (exists (tackon dtdest "classes")) 2)  (makedir (tackon dtdest "classes") (infos)) )
  243.       (if (< (exists (tackon dtdest "classes/datatypes")) 2)  (makedir (tackon dtdest "classes/datatypes") (infos)) ) 
  244.       (if (< (exists (tackon dtdest "devs")) 2)  (makedir (tackon dtdest "devs") (infos)) )
  245.       (if (< (exists (tackon dtdest "devs/datatypes")) 2)  (makedir (tackon dtdest "devs/datatypes") (infos)) ) 
  246.      
  247.       (set @each-name "jpeg")
  248.       (set WHERE "devs:datatypes")  (set TO (tackon dtdest "devs/datatypes"))  
  249.       (set cksum 1) (backup) (set cksum 0) 
  250.  
  251.       (delete "devs:datatypes/jpeg")
  252.       (delete "devs:datatypes/jpeg.info") 
  253.  
  254.     )  
  255.    )
  256.  
  257.  )
  258. )
  259.  
  260. ;********************************************************************************
  261. ; Look in Archive, if the File to be copied over is already there & it is ok to 
  262. ; back-up.. then Back-up file with <filename>.<ver.rev> OR <filename>.<checksum>
  263. ;******************************************************************************** 
  264. (if (> (exists "/jpeg_cdc") 0) 
  265.  (
  266.   (if (IN ToDo 0)
  267.    (
  268.      (foreach "/jpeg_cdc/classes" "#?.class"
  269.       (
  270.         (set WHERE whereDTs)  (set TO (tackon dtdest "classes")) 
  271.         (if (= ja 1) (backup) )
  272.         (copylib (source (tackon "/jpeg_cdc/classes" @each-name)) (dest WHERE) (optional "nofail") (infos) ) 
  273.       )
  274.      )
  275.  
  276.      (foreach "/jpeg_cdc/classes/codecs" "#?.codec"
  277.       ( 
  278.         (set WHERE (tackon whereDTs "codecs"))  (set TO (tackon dtdest "classes/codecs"))  
  279.         (if (= ja 1) (backup) )
  280.         (copylib (source (tackon "/jpeg_cdc/classes/codecs" @each-name)) (dest WHERE) (optional "nofail") (infos) ) 
  281.       )
  282.      )
  283.  
  284.      (foreach "/jpeg_cdc/libs" "#?.library"
  285.       ( 
  286.         (set WHERE wherelibs)  (set TO (tackon dtdest "libs")) 
  287.         (if (= ja 1) (backup) )
  288.         (copylib (source (tackon "/jpeg_cdc/libs" @each-name)) (dest WHERE) (optional "nofail") (infos) ) 
  289.       )
  290.      )
  291.    )
  292.   )
  293.  );Butt Ugly
  294.  
  295.  (message #no_jpeg_cdc)
  296. )  
  297.  
  298.  
  299.  
  300. (procedure dosubtype1
  301.   (set @each-name (cat subname1 ".datatype"))  
  302.   (set WHERE (tackon whereDTs "datatypes"))  (set TO (tackon dtdest "classes/datatypes")) 
  303.   (if (= ja 1) (backup) )  
  304.   (copylib (source (tackon "classes/datatypes" @each-name)) (dest WHERE) (optional "nofail") (infos) ) 
  305. )
  306.  
  307. (procedure dosubtype2
  308.   (set @each-name subname2)  
  309.   (set WHERE "devs:datatypes")  (set TO (tackon dtdest "devs/datatypes"))  
  310.   (set cksum 1)    (if (= ja 1) (backup) )    (set cksum 0) 
  311.   (copyfiles (source (tackon "devs/datatypes" @each-name)) (dest WHERE) (optional "nofail") (infos) ) 
  312. )
  313.  
  314.  
  315. (if (IN ToDo 0) ( (set subname1 "jfif") (set subname2 "jfif") (dosubtype1) (dosubtype2)) )
  316. (if (IN ToDo 1) ( (set subname1 "pcx")  (set subname2 "pcx")  (dosubtype1) (dosubtype2)) )
  317. (if (IN ToDo 3) ( (set subname1 "ilbm") (set subname2 "ilbm") (dosubtype1) (dosubtype2)) )
  318.  
  319. (if (IN ToDo 2)
  320.  (
  321.   (set subname1 "pbm")    (dosubtype1) 
  322.   (set subname2 "PBM_P1") (dosubtype2)
  323.   (set subname2 "PBM_P2") (dosubtype2)
  324.   (set subname2 "PBM_P3") (dosubtype2)
  325.   (set subname2 "PBM_P4") (dosubtype2)
  326.   (set subname2 "PBM_P5") (dosubtype2)
  327.   (set subname2 "PBM_P6") (dosubtype2)
  328.  )
  329. )
  330.  
  331.  
  332. (set subname1 "picture") (dosubtype1)
  333.  
  334.  
  335. ;(if (= draco 0)
  336. ; (
  337. ;   (foreach "libs" "#?.library"
  338. ;    ( 
  339. ;      (set WHERE wherelibs)  (set TO (tackon dtdest "libs")) 
  340. ;      (if (= ja 1) (backup) ) 
  341. ;      (copylib (source (tackon "libs" @each-name)) (dest WHERE) (optional "nofail") (infos) ) 
  342. ;    )
  343. ;   )
  344. ;
  345. ; )
  346. ; (message #draco)
  347. ;)
  348.  
  349.  
  350. (set @each-name "gtlayout.library")
  351. (set WHERE wherelibs)  (set TO (tackon dtdest "libs")) 
  352. (if (= ja 1) (backup) ) 
  353. (copylib (source (tackon "libs" @each-name)) (dest WHERE) (optional "nofail") ) 
  354.  
  355. ;********************************************************************************
  356. ;  Tools to install, ie prefs 
  357. ;********************************************************************************
  358. (set ToDo1      (askoptions (choices #cyberprefs)
  359.                 (prompt #tools)
  360.                 (help #tools)
  361.                 (default 1)
  362.         )
  363. )
  364.  
  365. (if (IN ToDo1 0)
  366.   (
  367.     (set CyberDrawer (askdir (prompt (cat #Where #wheredtprefs))
  368.                              (help   (cat #Where #wheredtprefs))
  369.                  (default "SYS:Prefs")
  370.                      )
  371.     )
  372.  
  373.     (if (> (exists (tackon CyberDrawer "PCDT") ) 0)
  374.       (
  375.         (set vernum1 (getversion (tackon CyberDrawer "PCDT")))
  376.         (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  377.  
  378.         (copyfiles (source (tackon CyberDrawer "PCDT"))
  379.                            (dest CyberDrawer) (infos)
  380.                            (newname (cat "PCDT" ver1 "." rev1))
  381.         )
  382.  
  383.       )
  384.     )
  385.  
  386.     (copyfiles (source "Prefs/PCDT")  (dest CyberDrawer) (infos) (optional "force" "askuser" "nofail"))
  387.   )
  388. )
  389.  
  390. ;********************************************************************************
  391. ; END  
  392. ;********************************************************************************
  393. ;(if (= ja 1) (message (cat #backup1 "'" (tackon whereback "Datatypes") "'\n\n" #backup2)) )
  394.  
  395. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  396. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  397. (run (cat #mpath "/multiview Readme") )
  398.